home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / Restaurants.cpt / Restaurants / background_13616.txt < prev    next >
Text File  |  1987-12-20  |  7KB  |  260 lines
  1. -- background: 13616 from stack: in
  2. -- bmap block id: 14061
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Seafood
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11. on NewCard
  12.   set the lockScreen to true
  13.   doMenu "New Button"
  14.   set name of button "New Button" to "¬¢"
  15.   set style of button ¬¢ to checkBox
  16.   set rect of button ¬¢ to 37,313,65,329
  17.   -- now construct script for the new button
  18.   put "on mouseUp" & return into buttonScript
  19.   put "set hilite of button ID 1 to TRUE" & return after buttonScript
  20.   put "set hilite of button ID 2 to FALSE" & return after buttonScript
  21.   put "set hilite of button ID 3 to FALSE" & return after buttonScript
  22.   put "set hilite of button ID 4 to FALSE" & return after buttonScript
  23.   put "end mouseUp" & return after buttonScript
  24.   set script of button ¬¢ to buttonScript
  25.   show button ¬¢
  26.   doMenu "New Button"
  27.   set name of button "New Button" to "$"
  28.   set style of button $ to checkBox
  29.   set rect of button $ to 81,313,109,329
  30.   -- now construct script for the new button
  31.   put "on mouseUp" & return into buttonScript
  32.   put "set hilite of button ID 1 to FALSE" & return after buttonScript
  33.   put "set hilite of button ID 2 to TRUE" & return after buttonScript
  34.   put "set hilite of button ID 3 to FALSE" & return after buttonScript
  35.   put "set hilite of button ID 4 to FALSE" & return after buttonScript
  36.   put "end mouseUp" & return after buttonScript
  37.   set script of button $ to buttonScript
  38.   show button $
  39.   doMenu "New Button"
  40.   set name of button "New Button" to "$$"
  41.   set style of button "$$" to checkBox
  42.   set rect of button "$$" to 125,313,160,329
  43.   -- now construct script for the new button
  44.   put "on mouseUp" & return into buttonScript
  45.   put "set hilite of button ID 1 to FALSE" & return after buttonScript
  46.   put "set hilite of button ID 2 to FALSE" & return after buttonScript
  47.   put "set hilite of button ID 3 to TRUE" & return after buttonScript
  48.   put "set hilite of button ID 4 to FALSE" & return after buttonScript
  49.   put "end mouseUp" & return after buttonScript
  50.   set script of button "$$" to buttonScript
  51.   show button "$$"
  52.   doMenu "New Button"
  53.   set name of button "New Button" to "$$$"
  54.   set style of button "$$$" to checkBox
  55.   set rect of button "$$$" to 176,313,217,329
  56.   -- now construct script for the new button
  57.   put "on mouseUp" & return into buttonScript
  58.   put "set hilite of button ID 1 to FALSE" & return after buttonScript
  59.   put "set hilite of button ID 2 to FALSE" & return after buttonScript
  60.   put "set hilite of button ID 3 to FALSE" & return after buttonScript
  61.   put "set hilite of button ID 4 to TRUE" & return after buttonScript
  62.   put "end mouseUp" & return after buttonScript
  63.   set script of button "$$$" to buttonScript
  64.   show button "$$$"
  65.   choose browse tool
  66.   global SeafoodNumber
  67.   add 1 to SeafoodNumber
  68. end NewCard
  69.  
  70. on CutCard
  71.   global SeafoodNumber
  72.   subtract 1 from SeafoodNumber
  73. end CutCard
  74.  
  75. on DeleteCard
  76.   global SeafoodNumber
  77.   subtract 1 from SeafoodNumber
  78. end DeleteCard
  79.  
  80.  
  81.  
  82.  
  83.  
  84. -- part 17 (field)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=21 top=148 right=312 bottom=223
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 2
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: 
  96.  
  97.  
  98. -- part 18 (field)
  99. -- low flags: 00
  100. -- high flags: 0000
  101. -- rect: left=237 top=77 right=126 bottom=485
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 0
  105. -- font id: 2
  106. -- text size: 18
  107. -- style flags: 0
  108. -- line height: 24
  109. -- part name: 
  110.  
  111.  
  112. -- part 21 (field)
  113. -- low flags: 00
  114. -- high flags: 0000
  115. -- rect: left=237 top=127 right=183 bottom=485
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 0
  119. -- font id: 2
  120. -- text size: 14
  121. -- style flags: 0
  122. -- line height: 18
  123. -- part name: 
  124.  
  125.  
  126. -- part 22 (field)
  127. -- low flags: 00
  128. -- high flags: 0000
  129. -- rect: left=237 top=184 right=204 bottom=485
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 0
  133. -- font id: 2
  134. -- text size: 14
  135. -- style flags: 0
  136. -- line height: 18
  137. -- part name: 
  138.  
  139.  
  140. -- part 24 (button)
  141. -- low flags: 00
  142. -- high flags: 0000
  143. -- rect: left=420 top=203 right=228 bottom=444
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 15420 / 15420
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: Prev
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   visual effect wipe right
  155.   go to previous card
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 25 (button)
  161. -- low flags: 00
  162. -- high flags: 0000
  163. -- rect: left=444 top=203 right=228 bottom=466
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 16560 / 16560
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: Next
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   visual effect wipe left
  175.   go to next card
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 27 (button)
  181. -- low flags: 00
  182. -- high flags: 0000
  183. -- rect: left=465 top=201 right=228 bottom=488
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 6720 / 6720
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: Return
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.   visual effect iris close
  195.   go to first card
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 28 (button)
  201. -- low flags: 00
  202. -- high flags: 0000
  203. -- rect: left=239 top=203 right=232 bottom=271
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 21847 / 21847
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: Home
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   visual effect dissolve
  215.   go Home
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 29 (button)
  221. -- low flags: 00
  222. -- high flags: 0000
  223. -- rect: left=21 top=49 right=147 bottom=144
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: Wine Glass
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   visual effect dissolve fast
  235.   go to card id 3672
  236. end mouseUp
  237.  
  238.  
  239.  
  240.  
  241. -- part 30 (button)
  242. -- low flags: 00
  243. -- high flags: 0000
  244. -- rect: left=412 top=42 right=59 bottom=477
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 1
  248. -- font id: 0
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: Thai
  253. ----- HyperTalk script -----
  254. on mouseUp
  255.   visual effect dissolve fast
  256.   go to first card of background "Thai"
  257. end mouseUp
  258.  
  259.  
  260.